home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -seriously_amiga- / misc / mereset / install < prev    next >
Text File  |  1999-01-25  |  2KB  |  138 lines
  1. ;
  2. ; Installer-Script for MEReset 3.0
  3. ; 
  4. ;       Autor   : Malte Eller
  5. ;       Version : 1.2
  6. ;       Datum   : 24.11.1998
  7. ;
  8. ;       $VER: Install 1.2 (24.11.1998)
  9. ;
  10. ;**************************************************
  11.  
  12. (set @user-level 1)
  13.  
  14. (if (= @language "deutsch")
  15. (
  16. (set #bad-kick (cat "Leider wird OS2.0 oder höher benötigt"))
  17. (set #askdir1 (cat "Wohin möchten Sie MEReset installieren?\n"
  18. "(Dort wird dann eine neue Schubalde angelegt)"))
  19. (set #fragetext (cat "Möchten Sie das Programm auch in die\n"
  20. " WBStartup kopieren?"))
  21. (set #ja (cat "Ja"))
  22. (set #nein (cat "Nein"))
  23. (set #confirmt (cat "Was möchten Sie ich instalieren?"))
  24. (set #fragetextL (cat "Welche Sprachen möchten Sie installieren?"))
  25. )
  26.  
  27. (
  28. (set #bad-kick (cat "I need OS2.0 or higher"))
  29. (set #askdir1 (cat "In which Drawer will you install MEReset?\n"
  30. "(A new Drawer will be create)"))
  31. (set #fragetext (cat "Should I copy the Program to WBStartup"))
  32. (set #ja (cat "Yes"))
  33. (set #nein (cat "No"))
  34. (set #confirmt (cat "What should I install?"))
  35. (set #fragetextL (cat "Which languages should I install?"))
  36. ))
  37.  
  38. ;**************************************************
  39.  
  40. (if (< (/ (getversion) 65536) 37)
  41. (
  42.     (abort #bad-kick)
  43. ))
  44.  
  45. ;**************************************************
  46.  
  47. (complete 0)
  48.  
  49. (set #name
  50.     (askdir
  51.         (prompt #askdir1)
  52.         (help @askdir-help)
  53.         (default "SYS:Tools")
  54.     )
  55. )
  56.  
  57. (set #Dname (tackon #name "MEReset"))
  58.  
  59. (makedir #Dname
  60.  (infos)
  61. )
  62.  
  63. (copyfiles
  64.     (source "")
  65.     (dest #Dname)
  66.     (pattern "#?")
  67.     (prompt #confirmt)
  68.     (help @confirm-help)
  69.     (confirm)
  70. )
  71.  
  72. (complete 50)
  73.  
  74. ;**************************************************
  75.  
  76. (set name
  77.     (askoptions
  78.         (prompt #fragetext)
  79.         (help @askoptions-help)
  80.         (choices #Ja)
  81.         (default 1)
  82.     )
  83. )
  84.  
  85. (if (= 1 name)
  86.  (copyfiles
  87.     (source "")
  88.     (dest "sys:WBStartup")
  89.     (pattern "MEReset#?")
  90.     (prompt #fragetext)
  91.     (help @confirm-help)
  92.     (confirm)
  93.  )
  94. )
  95.  
  96. (complete 80)
  97.  
  98. ;**************************************************
  99.  
  100. (if (exists "sys:locale/catalogs")
  101.  
  102.  (set #lang (askoptions
  103.         (prompt #fragetextL)
  104.         (help @askoptions-help)
  105.         (choices "Deutsch" "English")
  106.         (default 1))
  107.  )
  108. )
  109.  
  110. (set #n 0)
  111.  
  112. (while
  113.     (set #sprache
  114.         (select #n
  115.             "Deutsch"
  116.             "English"
  117.             ""
  118.         )
  119.     )
  120.     (
  121.      (if (IN #lang #n)
  122.         (
  123.          (set #catalog (tackon "Catalogs" (tackon #sprache "mereset.catalog")))
  124.          (set #destination (tackon "Locale:Catalogs/" #sprache))
  125.          (copyfiles
  126.             (source #catalog)
  127.             (dest #destination)
  128.             (prompt #confirmt)
  129.             (help @confirm-help)
  130.             (confirm))
  131.         )
  132.      )
  133.      (set #n (+ #n 1))
  134.     )
  135. )
  136.  
  137. (complete 100)
  138.